Animation der 7 Tage Inzidenz der letzten 7 Tage
Animation der 7 Tage Inzidenz der letzten 14 Tage
Animation der 7 Tage Inzidenz der letzten 30 Tage
Animation der Sieben Tage Inzidenz seit Beginn der Epidemie
The national data source is the civil protection github
repository.Date : 2022-10-12
Created with: R by J. Mayr
Animation der 14 Tage Inzidenz der letzten 7 Tage
Animation der 14 Tage Inzidenz der letzten 14 Tage
Animation der 14 Tage Inzidenz der letzten 30 Tage
Animation der 14 Tage Inzidenz ein Monat um das Testwochenende
```{r,warning=F,message=F, echo=FALSE,out.width=“100%”}
base <- pcmdpcst1120 %>%
plot_ly(x = ~incidence, y = ~increment,colors = “Paired”, color =
~denominazione_regione.x,text = ~paste(denominazione_regione.x,”
“,round(incidence,0)), hoverinfo =”text”) %>%
layout(xaxis = list(type = “linear”,autorange = “true”)
)
base %>%
add_markers( frame = ~data, ids = ~denominazione_regione.x)
%>%
animation_opts(1000,easing =“linear-in”, redraw = T) %>%
animation_button(
x = 1, xanchor = “right”, y = 0, yanchor = “bottom”
) %>%
animation_slider(
currentvalue = list(prefix = “Datum”, font = list(color=“red”))
)
Animation der 14 Tage Inzidenz seit Beginn der Epidemie